home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / general / Link.st < prev    next >
Encoding:
Text File  |  2004-01-31  |  507 b   |  18 lines
  1. "-------------------------------------------------------------------"
  2. " An instance of me is a simple record of a pointer to another Link."
  3. " I am an abstract Class; my concrete subclasses, for example,      "
  4. " Process, can be stored in a LinkedList structure.                 "
  5. "-------------------------------------------------------------------"
  6.  
  7. Class Link :Collection ! nextLink !
  8. [
  9.   nextLink
  10.     ^ nextLink
  11. |
  12.   nextLink: aLink
  13.     ^ nextLink <- aLink
  14. |
  15.   new: aLink
  16.     ^ self new nextLink: aLink
  17. ]
  18.